procedure WhatVersion(var versionNum : real);

Returns the version of MacPhase.

Also see:  HaltVersion  FunctionAvailable